Linking rainfall with temperature

From the graphs, it is clearly visible that increased rainfall intensity is directly linked with rising temperature. The change in minimum temperature has a greater impact.

climate_change <- read.csv(file = "Weather Data Bangladesh (1948 - 2013).csv",TRUE, sep = ",", stringsAsFactors = FALSE)

library(ggplot2)
library(plotly)

library(ggiraph)
library(ggiraphExtra)


fit_max=lm(Max.Temp~Rainfall,data=climate_change)
summary(fit_max)
## 
## Call:
## lm(formula = Max.Temp ~ Rainfall, data = climate_change)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -11.2446  -1.8591   0.1282   1.8429  10.8586 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 3.284e+01  2.576e-02 1274.73   <2e-16 ***
## Rainfall    3.208e-03  8.308e-05   38.62   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.886 on 21118 degrees of freedom
## Multiple R-squared:  0.06596,    Adjusted R-squared:  0.06591 
## F-statistic:  1491 on 1 and 21118 DF,  p-value: < 2.2e-16
ggPredict(fit_max,se=TRUE,interactive=TRUE)
fit_min=lm(Min.Temp~Rainfall,data=climate_change)
summary(fit_min)
## 
## Call:
## lm(formula = Min.Temp ~ Rainfall, data = climate_change)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -19.5934  -3.0074   0.7515   3.1958   8.3510 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 1.870e+01  3.559e-02   525.4   <2e-16 ***
## Rainfall    1.240e-02  1.148e-04   108.0   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 3.987 on 21118 degrees of freedom
## Multiple R-squared:  0.356,  Adjusted R-squared:  0.3559 
## F-statistic: 1.167e+04 on 1 and 21118 DF,  p-value: < 2.2e-16
ggPredict(fit_min,se=TRUE,interactive=TRUE)
## From the graphs, it is clearly visible that increased rainfall intensity is directly linked with rising temperature. The change in minimum temperature has a greater impact. 

knitr::opts_chunk$set(echo = TRUE)

A Warming, Changing World

Continuing the planet’s long-term warming trend, the year’s globally averaged temperature was 1.84 degrees Fahrenheit (1.02 degrees Celsius) warmer than the baseline 1951-1980 mean. In Bangladesh, all recent years after 2000 were hotter than average and almost all of them had higher rainfall intensity.